
(defun parse-defs ()
  (list 1))

(defclass l-type ()
  (
   name ; test
   ))

(defparameter *types* (list 'int 'double 'char))

(defgeneric parse (id &rest args))

(defmethod parse ((id (eql 'type)) &rest args))

;;(defgeneric emit (&rest args))

(defmethod emit ((target (eql 'funcall)) name args)
  (format t "emitting funcall ~a~%" (list name args)))

;;(defmethod emit (declaration)
;;  (format t "emitting declaration ~a~%" declaration))

;;(defparameter *v-list* 123123)

;; (parse-defs)
